home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / D.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  215b  |  21 lines
  1. cls
  2. ?err
  3. ?"CD ";command$
  4. chdrive command$
  5. ?err
  6. x$=dir$("*.*",16)
  7. ?err
  8. while x$<>""
  9.  x=attrib(c$+x$)
  10.  if x=16 then
  11.   color 4
  12.   ?x$;"      <DIR>"
  13.  else
  14.   color 15
  15.   ?x$
  16.  end if
  17.  x$=dir$
  18. wend
  19. end
  20.  
  21.